Skip to content

Instantly share code, notes, and snippets.

@shirok
Created April 19, 2012 07:11
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save shirok/2419310 to your computer and use it in GitHub Desktop.
Save shirok/2419310 to your computer and use it in GitHub Desktop.
diff --git a/lib/gauche/test.scm b/lib/gauche/test.scm
index ab34e40..af082ad 100644
--- a/lib/gauche/test.scm
+++ b/lib/gauche/test.scm
@@ -361,6 +361,10 @@
[proc (global-variable-ref
(slot-ref gref 'module)
(slot-ref gref 'name))]
+ ;; We exclude <generic> with no methods. Such "placeholder"
+ ;; generic function may be used in the base module, expecting
+ ;; the other module adds methods to it.
+ [ (not (and (is-a? proc <generic>) (null? (~ proc'methods)))) ]
[ (not (apply applicable? proc (make-list numargs <bottom>))) ])
(list (slot-ref gref 'name)
(slot-ref closure 'info)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment