mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 08:40:19 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Keisuke Nishida 2001-04-05 01:38:38 +00:00
parent 4ee5686f6c
commit ea9b4b29f3
13 changed files with 684 additions and 529 deletions
Download patch file Download diff file Expand all files Collapse all files

8
module/language/r5rs/translate.scm
View file

@ -26,9 +26,6 @@
(define (trans x) (if (pair? x) (trans-pair x) x))
(define *primitive-procedure-list*
'(void car cdr cons + - * / < >))
(define (trans-pair x)
(let ((name (car x)) (args (cdr x)))
(let ((il (case name
@ -45,10 +42,7 @@
(cons* '@lambda (trans-formals (car args))
(map trans (cdr args))))
(else
(if (memq name *primitive-procedure-list*)
;; FIXME: Temporary hack for direct optimization
(cons (symbol-append '@ name) (map trans args))
(cons (trans name) (map trans args))))))
(cons (trans name) (map trans args)))))
(props (source-properties x)))
(if (not (null? props))
(set-source-properties! il props))