fez-lisp 1.3.4 → 1.3.5
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- package/package.json +1 -1
- package/src/interpreter.js +4 -4
package/package.json
CHANGED
package/src/interpreter.js
CHANGED
|
@@ -393,7 +393,7 @@ export const keywords = {
|
|
|
393
393
|
? evaluate(args[1], env)
|
|
394
394
|
: args.length === 3
|
|
395
395
|
? evaluate(args[2], env)
|
|
396
|
-
:
|
|
396
|
+
: FALSE
|
|
397
397
|
},
|
|
398
398
|
[KEYWORDS.NOT]: (args, env) => {
|
|
399
399
|
if (args.length !== 1)
|
|
@@ -547,7 +547,7 @@ export const keywords = {
|
|
|
547
547
|
KEYWORDS.OR
|
|
548
548
|
} ${stringifyArgs(args)})`
|
|
549
549
|
)
|
|
550
|
-
if (!a) return
|
|
550
|
+
if (!a) return FALSE
|
|
551
551
|
const b = evaluate(args[1], env)
|
|
552
552
|
if (b !== FALSE && b !== TRUE)
|
|
553
553
|
throw new TypeError(
|
|
@@ -571,7 +571,7 @@ export const keywords = {
|
|
|
571
571
|
KEYWORDS.OR
|
|
572
572
|
} ${stringifyArgs(args)})`
|
|
573
573
|
)
|
|
574
|
-
if (a) return
|
|
574
|
+
if (a) return TRUE
|
|
575
575
|
const b = evaluate(args[1], env)
|
|
576
576
|
if (b !== FALSE && b !== TRUE)
|
|
577
577
|
throw new TypeError(
|
|
@@ -668,7 +668,7 @@ export const keywords = {
|
|
|
668
668
|
KEYWORDS.BLOCK
|
|
669
669
|
} ${stringifyArgs(args)})`
|
|
670
670
|
)
|
|
671
|
-
return args.reduce((_, x) => evaluate(x, env),
|
|
671
|
+
return args.reduce((_, x) => evaluate(x, env), FALSE)
|
|
672
672
|
},
|
|
673
673
|
[KEYWORDS.IS_ATOM]: (args, env) => {
|
|
674
674
|
if (args.length !== 1)
|