mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-31 17:30:24 +02:00
Code Activity

Surround commentary w/ standard markers; nfc.

Browse source
This commit is contained in:
Thien-Thi Nguyen 2001-04-28 18:58:09 +00:00
parent e7d82febca
commit afab82bc00
1 changed files with 42 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

8
ice-9/optargs.scm
View file

@ -21,9 +21,7 @@
(define-module (ice-9 optargs)) ;;; Commentary:
;;; {Optional Arguments} ;;; {Optional Arguments}
;;; ;;;
@ -59,7 +57,9 @@
;;; and one or zero occurences. ;;; and one or zero occurences.
;;; ;;;
;;; Code:
(define-module (ice-9 optargs))
;; bound? var ;; bound? var
;; Checks if a variable is bound in the current environment. ;; Checks if a variable is bound in the current environment.
@ -432,3 +432,5 @@
`(,DT ,NAME `(,DT ,NAME
(,(lambda (transformer) (defmacro:transformer transformer)) (,(lambda (transformer) (defmacro:transformer transformer))
(lambda* ,ARGLIST ,@BODY)))) (lambda* ,ARGLIST ,@BODY))))
;;; optargs.scm ends here