From a2e03a8ad47762d02555ffd08d19358cf8d754ba Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 17 Jul 2008 18:23:33 +0000 Subject: [PATCH] remove spruious eval in sslgen for eopl svn: r10825 --- collects/eopl/private/sllgen.ss | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/collects/eopl/private/sllgen.ss b/collects/eopl/private/sllgen.ss index db9fe1463f..be0933b30a 100644 --- a/collects/eopl/private/sllgen.ss +++ b/collects/eopl/private/sllgen.ss @@ -1938,7 +1938,7 @@ ;; table ::= ((non-terminal alternative ...) ...) ;; alternative ::= (list-of-items action ...) ;; 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 ;; signifying an empty buffer, to be filled when necessary. @@ -2087,6 +2087,5 @@ (define sllgen:apply-reduction (lambda (lhs opcode args) - (apply (eval opcode) - args))) + (apply opcode args))) )