diff options
Diffstat (limited to 'src/interp/compiler.boot')
| -rw-r--r-- | src/interp/compiler.boot | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index ebc3711a..631e9242 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2012, Gabriel Dos Reis. +-- Copyright (C) 2007-2013, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -1136,6 +1136,12 @@ compMacro(form,m,e) == ["/throwAway",$NoValueMode,putMacro(lhs,macroExpand(rhs,e),e)] nil +--% %Do + +compDo: (%Form,%Mode,%Env) -> %Triple +compDo(x,m,e) == + compOrCroak(first x.args,m,e) + --% SEQ compSeq: (%Form,%Mode,%Env) -> %Maybe %Triple @@ -2871,5 +2877,6 @@ for x in [["|", :"compSuchthat"],_ ["%SignatureImport",:"compSignatureImport"],_ ['%Throw,:'compThrow], ['%Try, :'compTry], + ['%Do, : 'compDo], ["[||]", :"compileQuasiquote"]] repeat property(first x, 'SPECIAL) := rest x |