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

remove spruious eval in sslgen for eopl

Browse Source 
svn: r10825
This commit is contained in:
Matthew Flatt 2008-07-17 18:23:33 +00:00
parent 6e668cbb00
commit a2e03a8ad4
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/eopl/private/sllgen.ss
View File

@ -1938,7 +1938,7 @@
;; table ::= ((non-terminal alternative ...) ...) ;; table ::= ((non-terminal alternative ...) ...)
;; alternative ::= (list-of-items action ...) ;; alternative ::= (list-of-items action ...)
;; action ::= (TERM symbol) | (NON-TERM symbol) | (GOTO symbol) ;; action ::= (TERM symbol) | (NON-TERM symbol) | (GOTO symbol)
;; | (EMIT-LIST) | (REDUCE symbol) ;; | (EMIT-LIST) | (REDUCE proc)
;; The token register can either contain an token or '() -- the latter ;; The token register can either contain an token or '() -- the latter
;; signifying an empty buffer, to be filled when necessary. ;; signifying an empty buffer, to be filled when necessary.
@ -2087,6 +2087,5 @@
(define sllgen:apply-reduction (define sllgen:apply-reduction
(lambda (lhs opcode args) (lambda (lhs opcode args)
(apply (eval opcode) (apply opcode args)))
args)))
) )