steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Temporarily removing test for 'list' in lisp-tests, while switching to cons cells

db4
James Cash 2008-06-03 23:40:30 -04:00
parent f63e6f1e35
commit 138fff1c2b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/lisp/lisp-tests.factor
View File

@ -13,7 +13,7 @@ IN: lisp.test
"+" "math" "+" define-primitive "+" "math" "+" define-primitive
"-" "math" "-" define-primitive "-" "math" "-" define-primitive
"list" [ >array ] lisp-define ! "list" [ >array ] lisp-define
{ 5 } [ { 5 } [
[ 2 3 ] "+" <lisp-symbol> funcall [ 2 3 ] "+" <lisp-symbol> funcall
@ -47,8 +47,8 @@ IN: lisp.test
"((lambda (x) (if x (begin (+ 1 2)) (- 3 5))) #t)" lisp-eval "((lambda (x) (if x (begin (+ 1 2)) (- 3 5))) #t)" lisp-eval
] unit-test ] unit-test
{ { 1 2 3 4 5 } } [ ! { { 1 2 3 4 5 } } [
"(list 1 2 3 4 5)" lisp-eval ! "(list 1 2 3 4 5)" lisp-eval
] unit-test ! ] unit-test
] with-interactive-vocabs ] with-interactive-vocabs