Changeset View

Standalone View

Context not available.
	;; (letfd <bindings> <body>)	;; (letfd <bindings> <body>)
	;;	;;
	;; Bind all variables given in <bindings> and initialize each of them	;; Bind all variables given in <bindings> and initialize each of them
	;; to the given initial value, and close them after evaluting <body>.	;; to the given initial value, and close them after evaluating <body>.
	(define-macro (letfd bindings . body)	(define-macro (letfd bindings . body)
	(let bind ((bindings' bindings))	(let bind ((bindings' bindings))
	(if (null? bindings')	(if (null? bindings')
Context not available.
	;;	;;
	;; Bind all variables given in <bindings>, initialize each of them to	;; Bind all variables given in <bindings>, initialize each of them to
	;; a string representing an unique path in the filesystem, and delete	;; a string representing an unique path in the filesystem, and delete
	;; them after evaluting <body>.	;; them after evaluating <body>.
	(define-macro (lettmp bindings . body)	(define-macro (lettmp bindings . body)
	(let bind ((bindings' bindings))	(let bind ((bindings' bindings))
	(if (null? bindings')	(if (null? bindings')
Context not available.