fix object literals with null value + unit tests #264

CHANGELOG.md

@@ -13,6 +13,7 @@
 * fix resolving promises inside quoted promise realm
 * fix undocumented symbol syntax extensions
 * fix odd? even? on non integers
+* fix object literals with null value [#264](https://github.com/jcubic/lips/issues/264)
 
 ## 1.0.0-beta.17
 ### Breaking

lib/bootstrap.scm

@@ -297,16 +297,17 @@
            ,@(let loop ((lst expr) (result nil))
                (if (null? lst)
                    (reverse result)
-                   (let ((first (car lst))
-                         (second (if (null? (cdr lst)) nil (cadr lst))))
+                   (let* ((first (car lst))
+                          (no-second (null? (cdr lst)))
+                          (second (if no-second nil (cadr lst))))
                      (if (not (key? first))
                          (let ((msg (string-append (type first)
                                                    " "
                                                    (repr first)
                                                    " is not a symbol!")))
                            (throw msg))
                          (let ((prop (key->string first)))
-                           (if (or (key? second) (null? second))
+                           (if (or (key? second) no-second)
                                (let ((code `(set-obj! ,name ,prop undefined)))
                                  (loop (cdr lst) (cons code result)))
                                (let ((code (if readonly

tests/core.scm

@@ -81,6 +81,17 @@
           (t.is (to.throw (set! x.foo "hey")) true)
           (t.is (to.throw (set! x.bar "hey")) true))))
 
+(test "core: it should create object literals without values"
+      (lambda (t)
+        (let ((x &(:foo :bar)))
+          (t.is x &(:foo undefined :bar undefined)))))
+
+(test "core: it should create object with null value (#264)"
+      (lambda (t)
+        (let ((x &(:foo null :bar null)))
+          (t.is (eq? x.foo null) #t)
+          (t.is (eq? x.bar null) #t))))
+
 (test "core: it should allow change shorthand object literals"
       (lambda (t)
         (let ((obj &(:x :y)))