#| -*-Scheme-*-
-$Id: mod-lisp.scm,v 1.6 2004/10/30 04:57:19 cph Exp $
+$Id: mod-lisp.scm,v 1.7 2004/10/30 05:18:33 cph Exp $
Copyright 2003,2004 Massachusetts Institute of Technology
(if (hook-in-list? mod-lisp-before-expander-hooks 'LOG-REQUESTS)
(error "Logging already started."))
(set! request-log-port (open-output-file pathname 'APPEND))
- (add-hook-to-list mod-lisp-before-expander-hooks 'LOG-REQUESTS log-requests))
+ (append-hook-to-list mod-lisp-before-expander-hooks
+ 'LOG-REQUESTS
+ log-requests))
(define (stop-logging-requests)
(remove-hook-from-list mod-lisp-before-expander-hooks 'LOG-REQUESTS)
#| -*-Scheme-*-
-$Id: ssp.pkg,v 1.8 2004/10/30 05:17:31 cph Exp $
+$Id: ssp.pkg,v 1.9 2004/10/30 05:20:03 cph Exp $
Copyright 2003,2004 Massachusetts Institute of Technology
xd:menuitem?
xd:number
xd:number?
+ xd:page-frame
+ xd:page-frame?
xd:problem
xd:problem?
+ xd:programmed-output
+ xd:programmed-output?
xd:radio-buttons
xd:radio-buttons?
xd:radio-entry