diff options
Diffstat (limited to 'src/interp/g-util.boot')
| -rw-r--r-- | src/interp/g-util.boot | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot index 20feccf0..2f900f6a 100644 --- a/src/interp/g-util.boot +++ b/src/interp/g-util.boot @@ -93,6 +93,14 @@ put(x,prop,val,e) == addBinding(x,newProplist,e) +++ Build a quasiquotation form for `x'. +quasiquote x == + ["[||]",x] + +++ Extract the quoted form, otherwise return nil +isQuasiquote m == + m is ["[||]",y] => y + -- Convert an arbitrary lisp object to canonical boolean. bool x == |