Fix 'see' for generics

release
Slava Pestov 2007-10-09 17:41:04 -04:00
parent 6d3aa439c2
commit e13f6c3b5e
1 changed files with 3 additions and 0 deletions

View File

@ -159,6 +159,9 @@ GENERIC: see ( defspec -- )
M: word synopsis*
dup word-synopsis ;
M: simple-generic synopsis*
dup word-synopsis ;
M: standard-generic synopsis*
dup seeing-word
\ GENERIC# pprint-word