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

*** empty log message ***

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

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))