mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-17 01:00:20 +02:00
*** empty log message ***
This commit is contained in:
parent
4ee5686f6c
commit
ea9b4b29f3
13 changed files with 684 additions and 529 deletions
|
@ -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))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue