Changeset 7364 in project

Timestamp:

01/16/08 10:44:09 (13 years ago)

Author:

felix winkelmann

Message:

accepts unspecified value as valid literal [thanks to Alex Shinn]

File:

• chicken/trunk/compiler.scm (modified) (1 diff)

chicken/trunk/compiler.scm

@@ -2298 +2298 @@
     
     (define (immediate-literal x)
-      (make-node '##core#immediate
-                 (cond ((fixnum? x) `(fix ,x))
-                       ((boolean? x) `(bool ,x))
-                       ((char? x) `(char ,x))
-                       ((null? x) '(nil))
-                       ((eof-object? x) '(eof))
-                       (else (bomb "bad immediate (prepare)")) )
-                 '() ) )
+      (if (eq? (void) x)
+          (make-node '##core#undefined '() '())
+          (make-node '##core#immediate
+                     (cond ((fixnum? x) `(fix ,x))
+                           ((boolean? x) `(bool ,x))
+                           ((char? x) `(char ,x))
+                           ((null? x) '(nil))
+                           ((eof-object? x) '(eof))
+                           (else (bomb "bad immediate (prepare)")) )
+                     '() ) ) )
     
     (debugging 'p "preparation phase...")