mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-05 15:10:27 +02:00
Code Activity

* boot-9.scm (remove-hook!): New macro. (Thanks to Maciej

Browse source 
Stachowiak.)
This commit is contained in:
Mikael Djurfeldt 1998-03-28 10:30:40 +00:00
parent 67fe060ed5
commit abf06c1273
2 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ice-9/ChangeLog
View file

@ -1,3 +1,8 @@
1998-03-28 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* boot-9.scm (remove-hook!): New macro. (Thanks to Maciej
Stachowiak.)
1998-01-30 Mikael Djurfeldt <mdj@mdj.nada.kth.se> 1998-01-30 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* threads.scm: Added simple error and signal handler. * threads.scm: Added simple error and signal handler.

8
ice-9/boot-9.scm
View file

@ -550,6 +550,14 @@
(set! ,(cadr exp) (set! ,(cadr exp)
(cons thunk ,(cadr exp)))))))) (cons thunk ,(cadr exp))))))))
(define remove-hook!
(procedure->macro
(lambda (exp env)
`(let ((thunk ,(caddr exp)))
(if (memq thunk ,(cadr exp)))
(set! ,(cadr exp)
(delq! thunk ,(cadr exp)))))))
;;; {Files} ;;; {Files}
;;; ;;;