suzanne.soy/scribble-math
1
0
Fork 0
Code Issues 8 Pull Requests 3 Actions Packages Projects Releases Wiki Activity

Fixed https://github.com/soegaard/bracket/issues/8

Browse Source
This commit is contained in:
Jens Axel Søgaard 2013-04-07 21:33:20 +02:00
parent c3acce9bab
commit f68eb51365
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
bracket/bracket.rkt
View File

@ -74,7 +74,8 @@
(define (holdable? o) (define (holdable? o)
(and (symbol? o) (and (symbol? o)
(memq o '(Hold)))) (eq? o 'Hold)
#;(memq o '(Hold))))
; In the BRACKET language an application of ; In the BRACKET language an application of
; a non-function evaluates to an expression. ; a non-function evaluates to an expression.
@ -891,9 +892,12 @@
(case (kind u) (case (kind u)
[(Plus) [(Plus)
(define v (Operand u 0)) (define v (Operand u 0))
#;(displayln (list u '=> v (Minus u v))) ; (displayln (list u '=> v (Minus u v)))
(Plus (Expand v) (apply Plus (map Expand (operands u)))
(Expand (Minus u v)))] ; This: (Plus (Expand v) (Expand (Minus u v)))
; is used in [Cohen] but leads to an infinite loop
; when expanding (Plus 1 a (Times -1 (Plus 1 a)) x)
]
[(Times) [(Times)
(define v (Operand u 0)) (define v (Operand u 0))
#;(Fix-point ; TODO: neeeded ? #;(Fix-point ; TODO: neeeded ?