diff options
Diffstat (limited to 'src/interp/c-util.boot')
| -rw-r--r-- | src/interp/c-util.boot | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index 58f830df..46417f08 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -1098,11 +1098,6 @@ eqSubst(args,parms,body) == NSUBLIS(pairList(parms,args),body,KEYWORD::TEST,function EQ) -++ returns true if `form' does not really induce computations. -isAtomicForm: %Form -> %Boolean -isAtomicForm form == - atom form or first form = "QUOTE" - ++ Walk `form' and replace simple functions as appropriate. replaceSimpleFunctions form == isAtomicForm form => form |