diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-04-12 08:58:02 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-04-12 08:58:02 +0000 |
| commit | c65ac216959772cd6955c9dc050b98d38d7492da (patch) | |
| tree | 4cc3a57df3f35d7a20363173e63d344b9c64fdd4 | |
| parent | e94336c0a8c400d3aae923dfd9615751b2b65923 (diff) | |
| download | open-axiom-c65ac216959772cd6955c9dc050b98d38d7492da.tar.gz | |
* interp/define.boot (compCapsuleItems): Fix thinko.
* interp/newaux.lisp: Increase the binding power of "+->".
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/interp/define.boot | 6 | ||||
| -rw-r--r-- | src/interp/newaux.lisp | 2 |
3 files changed, 7 insertions, 6 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 98f67f86..cfaa4bd7 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2008-04-12 Juergen Weiss <weiss@uni-mainz.de> + + * interp/define.boot (compCapsuleItems): Fix thinko. + * interp/newaux.lisp: Increase the binding power of "+->". + 2008-04-11 Gabriel Dos Reis <gdr@cs.tamu.edu> * interp/compiler.boot: Register compiler for Enumeration diff --git a/src/interp/define.boot b/src/interp/define.boot index d79ed090..58afdba9 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -1275,11 +1275,7 @@ processFunctor(form,signature,data,localParList,e) == compCapsuleItems(itemlist,$predl,$e) == $TOP__LEVEL: local - $myFunctorBody :local -- := data ---needed for translator - -- ??? the following line needs more investigation. Why is data - -- ??? expected to be a dynamic variable? Looks more like a bug. - if (BOUNDP 'data) then - $myFunctorBody:= SYMBOL_-VALUE 'data -- unbound at runtime? + $myFunctorBody :local ---needed for translator $signatureOfForm: local $suffix: local:= 0 for item in itemlist repeat $e:= compSingleCapsuleItem(item,$predl,$e) diff --git a/src/interp/newaux.lisp b/src/interp/newaux.lisp index dcbdfd95..df23d213 100644 --- a/src/interp/newaux.lisp +++ b/src/interp/newaux.lisp @@ -123,7 +123,7 @@ (/\\ 250 251) (\\/ 200 201) (\.\. SEGMENT 401 699 (|PARSE-Seg|)) (=\> 123 103) - (+-\> 998 102) + (+-\> 998 112) (== DEF 122 121) (==\> MDEF 122 121) (\| 108 111) ;was 190 190 |