kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-07-15 01:20:29 +03:00
Code Issues Projects Releases Wiki Activity

factor: prevent defmacro from mutating functions

Browse Source
This commit is contained in:
Nicolas Boulenguez 2021-09-05 19:04:24 +02:00 committed by Joel Martin
parent 7c5d341849
commit e3c376ebd5
4 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
impls/factor/lib/types/types.factor
View File

@ -15,9 +15,12 @@ TUPLE: malfn
{ env malenv read-only }
{ binds sequence read-only }
{ exprs read-only }
{ macro? boolean }
{ macro? boolean read-only }
{ meta assoc } ;
: malmacro ( fn -- fn )
[ env>> ] [ binds>> ] [ exprs>> ] tri t f malfn boa ;
: <malfn> ( env binds exprs -- fn )
f f malfn boa ;

2
impls/factor/step8_macros/step8_macros.factor
View File

@ -21,7 +21,7 @@ M: object eval-ast drop ;
value env EVAL [ key env env-set ] keep ;
:: eval-defmacro! ( key value env -- maltype )
value env EVAL t >>macro? [ key env env-set ] keep ;
value env EVAL malmacro [ key env env-set ] keep ;
: eval-let* ( bindings body env -- maltype env )
[ swap 2 group ] [ new-env ] bi* [

2
impls/factor/step9_try/step9_try.factor
View File

@ -21,7 +21,7 @@ M: object eval-ast drop ;
value env EVAL [ key env env-set ] keep ;
:: eval-defmacro! ( key value env -- maltype )
value env EVAL t >>macro? [ key env env-set ] keep ;
value env EVAL malmacro [ key env env-set ] keep ;
: eval-let* ( bindings body env -- maltype env )
[ swap 2 group ] [ new-env ] bi* [

2
impls/factor/stepA_mal/stepA_mal.factor
View File

@ -21,7 +21,7 @@ M: object eval-ast drop ;
value env EVAL [ key env env-set ] keep ;
:: eval-defmacro! ( key value env -- maltype )
value env EVAL t >>macro? [ key env env-set ] keep ;
value env EVAL malmacro [ key env env-set ] keep ;
: eval-let* ( bindings body env -- maltype env )
[ swap 2 group ] [ new-env ] bi* [