mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

(compute-get-n-set): Use '#:' in error message instead of ':'. Thanks

Browse source 
to Richard Todd!
This commit is contained in:
Marius Vollmer 2004-01-12 17:28:30 +00:00
parent 1dd2599f86
commit 3a43b605b8
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
oop/goops.scm
View file

@ -1431,7 +1431,7 @@
(set (get-keyword #:slot-set! (slot-definition-options s) #f))
(env (class-environment class)))
(if (not (and get set))
(goops-error "You must supply a :slot-ref and a :slot-set! in ~S"
(goops-error "You must supply a #:slot-ref and a #:slot-set! in ~S"
s))
(list get set)))
(else (next-method))))