Fixes minor bugs in two core reduction rules
This commit is contained in:
parent
48a5c19a4e
commit
8e69aa6ac2
|
@ -12,7 +12,7 @@
|
||||||
grammar
|
grammar
|
||||||
|
|
||||||
;; beta
|
;; beta
|
||||||
(~~> ((λ (x_1 ...) e_1) v_1 ...)
|
(~~> ((λ (x_1 ..._1) e_1) v_1 ..._1)
|
||||||
(subst* (x_1 ...) (v_1 ...) e_1)
|
(subst* (x_1 ...) (v_1 ...) e_1)
|
||||||
"beta")
|
"beta")
|
||||||
|
|
||||||
|
@ -25,7 +25,7 @@
|
||||||
"zero?")
|
"zero?")
|
||||||
(~~> (zero? v_1)
|
(~~> (zero? v_1)
|
||||||
#f
|
#f
|
||||||
(side-condition (not (zero? (term v_1))))
|
(side-condition (not (equal? 0 (term v_1))))
|
||||||
"non-zero")
|
"non-zero")
|
||||||
|
|
||||||
;; lists
|
;; lists
|
||||||
|
|
Loading…
Reference in New Issue
Block a user