summaryrefslogtreecommitdiff
path: root/module/language/lua/runtime.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/language/lua/runtime.scm')
-rw-r--r--module/language/lua/runtime.scm18
1 files changed, 2 insertions, 16 deletions
diff --git a/module/language/lua/runtime.scm b/module/language/lua/runtime.scm
index 8bf7e3da9..c9fcf5895 100644
--- a/module/language/lua/runtime.scm
+++ b/module/language/lua/runtime.scm
@@ -28,11 +28,7 @@
#:use-module ((srfi srfi-98) #:select (get-environment-variable))
#:use-module ((system base compile) #:select (compile read-and-compile))
- #:export (
- runtime-error
-
- ;; semantics
- false? true?
+ #:export (runtime-error
;; misc
value-type->string
@@ -92,16 +88,6 @@
(define (runtime-warning string . arguments)
(apply format (cons #t (cons (string-append "LUA: RUNTIME WARNING: " string "\n") arguments))))
-;;;;; SEMANTICS
-
-(define (false? x)
- "Wrapper for Scheme's false semantics that considers #nil to be false"
- (or (eq? x #f) (eq? x #nil)))
-
-(define (true? x)
- "Inversion of false?"
- (not (false? x)))
-
;;;;; MISCELLANEOUS
(define (value-type->string x)
@@ -333,7 +319,7 @@
(define-global (assert v . opts)
(define message (if (null? opts) "assertion failed" (car opts)))
- (if (false? v)
+ (if (not v)
(runtime-error message)
(apply values (cons v opts))))