suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

working around the case bug

Browse Source
This commit is contained in:
Danny Yoo 2012-10-23 17:31:16 -06:00
parent 9d460f09ab
commit af389dd564
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
js-assembler/assemble-open-coded.rkt
View File

@ -16,6 +16,13 @@
(define MAX-JAVASCRIPT-ARGS-AT-ONCE 100) (define MAX-JAVASCRIPT-ARGS-AT-ONCE 100)
;; Workaround for a regression in Racket 5.3.1:
(define-syntax-rule (mycase op ((x ...) b ...) ...)
(let ([v op])
(cond
[(or (eqv? v 'x) ...) b ...] ...)))
(: open-code-kernel-primitive-procedure (CallKernelPrimitiveProcedure Blockht -> String)) (: open-code-kernel-primitive-procedure (CallKernelPrimitiveProcedure Blockht -> String))
(define (open-code-kernel-primitive-procedure op blockht) (define (open-code-kernel-primitive-procedure op blockht)
(let*: ([operator : KernelPrimitiveName/Inline (CallKernelPrimitiveProcedure-operator op)] (let*: ([operator : KernelPrimitiveName/Inline (CallKernelPrimitiveProcedure-operator op)]
@ -36,7 +43,7 @@
(build-list (length operands) (lambda: ([i : Natural]) i)) (build-list (length operands) (lambda: ([i : Natural]) i))
operands operands
(CallKernelPrimitiveProcedure-typechecks? op))]) (CallKernelPrimitiveProcedure-typechecks? op))])
(case operator (mycase operator
[(+) [(+)
(cond [(empty? checked-operands) (cond [(empty? checked-operands)
(assemble-numeric-constant 0)] (assemble-numeric-constant 0)]