compile goops

[bpt/guile.git] / oop / goops / compile.scm

diff --git a/oop/goops/compile.scm b/oop/goops/compile.scm
index 2e7a16f..2e58365 100644 (file)
--- a/oop/goops/compile.scm
+++ b/oop/goops/compile.scm
@@ -184,7 +184,7 @@
   (let* ((proc (method-procedure (car methods)))
         ;; XXX - procedure-source can not be guaranteed to be
         ;;       reliable or efficient
-        (src (procedure-source proc)) 
+        (src (procedure-source proc))
         (formals (source-formals src))
         (body (source-body src)))
     (if (next-method? body)