mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

* r4rs.scm (apply): Set name property to 'apply.

Browse source
This commit is contained in:
Mikael Djurfeldt 1997-09-17 23:25:35 +00:00
parent 0f7af60091
commit 8fa5faad81
2 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/ChangeLog
View file

@ -1,3 +1,7 @@
Thu Sep 18 01:24:31 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* r4rs.scm (apply): Set name property to 'apply.
Tue Sep 16 22:09:50 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* boot-9.scm (keyword->symbol, display-usage-report): Changed

1
ice-9/r4rs.scm
View file

@ -25,6 +25,7 @@
;;; procedures, we define them as closures in terms of the primitive
;;; macros @apply and @call-with-current-continuation.
(set! apply (lambda (fun . args) (@apply fun (apply:nconc2last args))))
(set-procedure-property! apply 'name 'apply)
(define (call-with-current-continuation proc)
(@call-with-current-continuation proc))