Weiß, Juergen <[EMAIL PROTECTED]> writes:
| Main idea was to allow f(x +-> 2*x, y) without parentheses where
| f is a function accepting a function as the first argument.
|
| Regards
|
| Juergen Weiss
Committed.
-- Gaby
2008-04-12 Juergen Weiss <[EMAIL PROTECTED]>
* interp/define.boot (compCapsuleItems): Fix thinko.
* interp/newaux.lisp: Increase the binding power of "+->".
*** src/interp/define.boot (revision 509)
--- src/interp/define.boot (local)
*************** processFunctor(form,signature,data,local
*** 1275,1285 ****
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?
$signatureOfForm: local
$suffix: local:= 0
for item in itemlist repeat $e:= compSingleCapsuleItem(item,$predl,$e)
--- 1275,1281 ----
compCapsuleItems(itemlist,$predl,$e) ==
$TOP__LEVEL: local
! $myFunctorBody :local ---needed for translator
$signatureOfForm: local
$suffix: local:= 0
for item in itemlist repeat $e:= compSingleCapsuleItem(item,$predl,$e)
*** src/interp/newaux.lisp (revision 509)
--- src/interp/newaux.lisp (local)
***************
*** 123,129 ****
(/\\ 250 251) (\\/ 200 201)
(\.\. SEGMENT 401 699 (|PARSE-Seg|))
(=\> 123 103)
! (+-\> 998 102)
(== DEF 122 121)
(==\> MDEF 122 121)
(\| 108 111) ;was 190 190
--- 123,129 ----
(/\\ 250 251) (\\/ 200 201)
(\.\. SEGMENT 401 699 (|PARSE-Seg|))
(=\> 123 103)
! (+-\> 998 112)
(== DEF 122 121)
(==\> MDEF 122 121)
(\| 108 111) ;was 190 190
-------------------------------------------------------------------------
This SF.net email is sponsored by the 2008 JavaOne(SM) Conference
Don't miss this year's exciting event. There's still time to save $100.
Use priority code J8TL2D2.
http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone
_______________________________________________
open-axiom-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/open-axiom-devel
