2008-04-27 23:12:52 -04:00
|
|
|
! Copyright (C) 2008 James Cash
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2008-05-09 21:30:21 -04:00
|
|
|
USING: lisp lisp.parser tools.test sequences math kernel ;
|
2008-04-27 23:12:52 -04:00
|
|
|
|
2008-04-29 23:10:47 -04:00
|
|
|
IN: lisp.test
|
|
|
|
|
|
2008-05-05 12:48:58 -04:00
|
|
|
init-env
|
|
|
|
|
|
|
|
|
|
"+" [ first2 + ] lisp-define
|
|
|
|
|
|
|
|
|
|
{ [ first2 + ] } [
|
|
|
|
|
"+" lisp-get
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
{ 3 } [
|
|
|
|
|
"((lambda (x y) (+ x y)) 1 2)" lisp-string>factor call
|
2008-04-29 23:10:47 -04:00
|
|
|
] unit-test
|
