From 3dc230b92648707e79bf71fe7b82b898ea907079 Mon Sep 17 00:00:00 2001 From: "waldemar%netscape.com" Date: Thu, 20 Dec 2001 01:07:52 +0000 Subject: [PATCH] Replaced append by cons --- js2/semantics/Test/WritableAction.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/js2/semantics/Test/WritableAction.lisp b/js2/semantics/Test/WritableAction.lisp index 1ca5a3f270f4..8d23e87b3a71 100644 --- a/js2/semantics/Test/WritableAction.lisp +++ b/js2/semantics/Test/WritableAction.lisp @@ -29,7 +29,7 @@ (action<- (serial-num :expr 0) g)) ((value) (const i integer (+ (* 10 (serial-num :expr 0)) (value :digit))) - (return (append (vector i) ((value :expr))))))) + (return (cons i ((value :expr))))))) (rule :main ((value (vector integer))) (production :main (:expr) main-expr