Parent Directory | Revision Log | Patch
revision 1.33 by mdj, Sun Oct 21 09:47:25 2001 UTC | revision 1.34 by mvo, Mon Jul 8 20:55:20 2002 UTC | |
---|---|---|
# | Line 326 no other easy or unambiguous way of dete | Line 326 no other easy or unambiguous way of dete |
326 | (set-cdr! entry path-name) | (set-cdr! entry path-name) |
327 | (set! *catalog* | (set! *catalog* |
328 | (acons name path-name *catalog*)))))) | (acons name path-name *catalog*)))))) |
329 | ||
330 | (define (make-exchanger obj) | |
331 | (lambda (rep) (let ((old obj)) (set! obj rep) old))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |