kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-09-21 18:48:12 +03:00
Code Issues Projects Releases Wiki Activity

Merge pull request #138 from dubek/js-fix-quasiquote-nil

Browse Source 
js: Fix exception in `(nil)
This commit is contained in:
Joel Martin 2015-12-30 10:34:53 -07:00
commit 61fb553d02
9 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
js/step7_quote.js
View File

@ -20,7 +20,7 @@ function is_pair(x) {
function quasiquote(ast) {
if (!is_pair(ast)) {
return [types._symbol("quote"), ast];
} else if (ast[0].value === 'unquote') {
} else if (types._symbol_Q(ast[0]) && ast[0].value === 'unquote') {
return ast[1];
} else if (is_pair(ast[0]) && ast[0][0].value === 'splice-unquote') {
return [types._symbol("concat"),

2
js/step8_macros.js
View File

@ -20,7 +20,7 @@ function is_pair(x) {
function quasiquote(ast) {
if (!is_pair(ast)) {
return [types._symbol("quote"), ast];
} else if (ast[0].value === 'unquote') {
} else if (types._symbol_Q(ast[0]) && ast[0].value === 'unquote') {
return ast[1];
} else if (is_pair(ast[0]) && ast[0][0].value === 'splice-unquote') {
return [types._symbol("concat"),

2
js/step9_try.js
View File

@ -20,7 +20,7 @@ function is_pair(x) {
function quasiquote(ast) {
if (!is_pair(ast)) {
return [types._symbol("quote"), ast];
} else if (ast[0].value === 'unquote') {
} else if (types._symbol_Q(ast[0]) && ast[0].value === 'unquote') {
return ast[1];
} else if (is_pair(ast[0]) && ast[0][0].value === 'splice-unquote') {
return [types._symbol("concat"),

2
js/stepA_mal.js
View File

@ -21,7 +21,7 @@ function is_pair(x) {
function quasiquote(ast) {
if (!is_pair(ast)) {
return [types._symbol("quote"), ast];
} else if (ast[0].value === 'unquote') {
} else if (types._symbol_Q(ast[0]) && ast[0].value === 'unquote') {
return ast[1];
} else if (is_pair(ast[0]) && ast[0][0].value === 'splice-unquote') {
return [types._symbol("concat"),

3
miniMAL/step7_quote.json
View File

@ -17,7 +17,8 @@
["def", "quasiquote", ["fn", ["ast"],
["if", ["not", ["pair?", "ast"]],
["list", ["symbol", ["`", "quote"]], "ast"],
["if", ["=", ["`", "unquote"], ["get", ["nth", "ast", 0], ["`", "val"]]],
["if", ["and", ["symbol?", ["nth", "ast", 0]],
["=", ["`", "unquote"], ["get", ["nth", "ast", 0], ["`", "val"]]]],
["nth", "ast", 1],
["if", ["and", ["pair?", ["nth", "ast", 0]],
["=", ["`", "splice-unquote"],

3
miniMAL/step8_macros.json
View File

@ -17,7 +17,8 @@
["def", "quasiquote", ["fn", ["ast"],
["if", ["not", ["pair?", "ast"]],
["list", ["symbol", ["`", "quote"]], "ast"],
["if", ["=", ["`", "unquote"], ["get", ["nth", "ast", 0], ["`", "val"]]],
["if", ["and", ["symbol?", ["nth", "ast", 0]],
["=", ["`", "unquote"], ["get", ["nth", "ast", 0], ["`", "val"]]]],
["nth", "ast", 1],
["if", ["and", ["pair?", ["nth", "ast", 0]],
["=", ["`", "splice-unquote"],

3
miniMAL/step9_try.json
View File

@ -17,7 +17,8 @@
["def", "quasiquote", ["fn", ["ast"],
["if", ["not", ["pair?", "ast"]],
["list", ["symbol", ["`", "quote"]], "ast"],
["if", ["=", ["`", "unquote"], ["get", ["nth", "ast", 0], ["`", "val"]]],
["if", ["and", ["symbol?", ["nth", "ast", 0]],
["=", ["`", "unquote"], ["get", ["nth", "ast", 0], ["`", "val"]]]],
["nth", "ast", 1],
["if", ["and", ["pair?", ["nth", "ast", 0]],
["=", ["`", "splice-unquote"],

3
miniMAL/stepA_mal.json
View File

@ -17,7 +17,8 @@
["def", "quasiquote", ["fn", ["ast"],
["if", ["not", ["pair?", "ast"]],
["list", ["symbol", ["`", "quote"]], "ast"],
["if", ["=", ["`", "unquote"], ["get", ["nth", "ast", 0], ["`", "val"]]],
["if", ["and", ["symbol?", ["nth", "ast", 0]],
["=", ["`", "unquote"], ["get", ["nth", "ast", 0], ["`", "val"]]]],
["nth", "ast", 1],
["if", ["and", ["pair?", ["nth", "ast", 0]],
["=", ["`", "splice-unquote"],

4
tests/step7_quote.mal
View File

@ -49,6 +49,10 @@
;=>(1 2 (3 4))
`(1 2 (3 4))
;=>(1 2 (3 4))
(quasiquote (nil))
;=>(nil)
`(nil)
;=>(nil)
;; Testing unquote