diff options
author | Andy Wingo <wingo@pobox.com> | 2010-12-10 16:31:14 +0100 |
---|---|---|
committer | Ian Price <ianprice90@googlemail.com> | 2013-09-09 17:01:23 +0100 |
commit | ae037892f0008c9d05f9c0a090618d013a6dcfbb (patch) | |
tree | 4c32a57e0c11e286a1dc70c303a2dbee76bab946 /module/language/lua/runtime.scm | |
parent | 48f7c66a40f9357e10691caafac87355a17a3dec (diff) | |
download | guile-ae037892f0008c9d05f9c0a090618d013a6dcfbb.tar.gz |
remove true? and false?; lua's truthiness and falsehood is guile's.
* module/language/lua/runtime.scm (true?, false?): Remove, now that #nil
is false.
* module/language/lua/compile-tree-il.scm: Don't emit calls to true? or
false?.
Diffstat (limited to 'module/language/lua/runtime.scm')
-rw-r--r-- | module/language/lua/runtime.scm | 18 |
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)))) |