And the answer was, eval is a function, not a special form.
This commit is contained in:
parent
7f29c11592
commit
1307c65e94
|
@ -101,7 +101,7 @@ int main( int argc, char *argv[] ) {
|
||||||
* primitive special forms
|
* primitive special forms
|
||||||
*/
|
*/
|
||||||
bind_special( "cond", &lisp_cond );
|
bind_special( "cond", &lisp_cond );
|
||||||
bind_special( "eval", &lisp_eval );
|
bind_function( "eval", &lisp_eval );
|
||||||
bind_special( "quote", &lisp_quote );
|
bind_special( "quote", &lisp_quote );
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -1,12 +0,0 @@
|
||||||
#!/bin/bash
|
|
||||||
|
|
||||||
expected='5'
|
|
||||||
actual=`echo "(eval '(add 2 3))" | target/psse 2> /dev/null | head -2 | tail -1`
|
|
||||||
|
|
||||||
if [ "${expected}" = "${actual}" ]
|
|
||||||
then
|
|
||||||
echo "OK"
|
|
||||||
else
|
|
||||||
echo "Fail: expected '${expected}', got '${actual}'"
|
|
||||||
exit 1
|
|
||||||
fi
|
|
Loading…
Reference in a new issue