And the answer was, eval is a function, not a special form.

This commit is contained in:
Simon Brooke 2018-12-07 06:32:02 +00:00
parent 7f29c11592
commit 1307c65e94
2 changed files with 7 additions and 19 deletions

View file

@ -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 );

View file

@ -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