diff options
author | dos-reis <gdr@axiomatics.org> | 2010-03-04 07:47:36 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-03-04 07:47:36 +0000 |
commit | 5c643bf0dce03bf61ead5b95c27de845ac242680 (patch) | |
tree | bbfc41a53872a179105e843f32ce7fe74fe55083 /src/interp/define.boot | |
parent | 89122c246b751bba715be67884000a0ef236975d (diff) | |
download | open-axiom-5c643bf0dce03bf61ead5b95c27de845ac242680.tar.gz |
* interp/c-util.boot (quoteMinimally): New.
(registerFunctionReplacement): Likewise.
* interp/define.boot (spadCompileOrSetq): Use it.
* interp/g-opt.boot (optSpecialCall): Likewise.
* interp/nruncomp.boot (optDeltaEntry): Likewise.
* interp/spad.lisp (|knownEqualPred|): Likewise.
* interp/wi2.boot (optDeltaEntry): Likewise.
Diffstat (limited to 'src/interp/define.boot')
-rw-r--r-- | src/interp/define.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index debdd992..e50aee3b 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2009, Gabriel Dos Reis. +-- Copyright (C) 2007-2010, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -1247,16 +1247,16 @@ spadCompileOrSetq (form is [nam,[lam,vl,body]]) == body := replaceSimpleFunctions body if vl is [:vl',E] and body is [nam',: =vl'] then - LAM_,EVALANDFILEACTQ ['PUT,MKQ nam,MKQ 'SPADreplace,MKQ nam'] + registerFunctionReplacement(nam,nam') sayBrightly ['" ",:bright nam,'"is replaced by",:bright nam'] else if (isAtomicForm body or and/[isAtomicForm x for x in body]) and vl is [:vl',E] and not CONTAINED(E,body) then macform := ['XLAM,vl',body] - LAM_,EVALANDFILEACTQ ['PUT,MKQ nam,MKQ 'SPADreplace,MKQ macform] + registerFunctionReplacement(nam,macform) sayBrightly ['" ",:bright nam,'"is replaced by",:bright body] form := - GET(nam,"SPADreplace") => [nam,[lam,vl,["DECLARE",["IGNORE",E]],body]] + getFunctionReplacement nam => [nam,[lam,vl,["DECLARE",["IGNORE",E]],body]] [nam,[lam,vl,body]] $insideCapsuleFunctionIfTrue => |