scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Renamen MAKE-ADDRESS-CONSTRUCTOR to MAKE-ADDRESS-RECORD to make things clearer.

This commit is contained in:
interp 2003-07-15 14:06:17 +00:00
parent 0cfc9491d9
commit 3d5a92eb44
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scheme/httpd/surflets/addresses.scm
View File

@ -10,15 +10,15 @@
;; (url (address new-url) "Click here to get more")...) ;; (url (address new-url) "Click here to get more")...)
(define-record-type address :address (define-record-type address :address
(make-address-constructor name annotated? annotations) (make-address-record name annotated? annotations)
(name address-name) (name address-name)
(annotated? address-annotated?) (annotated? address-annotated?)
(annotations address-annotations set-address-annotations!)) (annotations address-annotations set-address-annotations!))
(define (really-make-address name annotated?) (define (really-make-address name annotated?)
(if annotated? (if annotated?
(make-address-constructor name annotated? #f) (make-address-record name annotated? #f)
(make-address-constructor name annotated? '()))) (make-address-record name annotated? '())))
(define (address-add-annotation! address annotation) (define (address-add-annotation! address annotation)
(let ((index (generate-unique-name "val"))) (let ((index (generate-unique-name "val")))