HCoop
/
bpt
/
guile.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
disable optimizations in goops dispatch procedures
[bpt/guile.git]
/
module
/
oop
/
goops
/
dispatch.scm
diff --git
a/module/oop/goops/dispatch.scm
b/module/oop/goops/dispatch.scm
index
e433b86
..
b12ab15
100644
(file)
--- a/
module/oop/goops/dispatch.scm
+++ b/
module/oop/goops/dispatch.scm
@@
-1,4
+1,4
@@
-;;;; Copyright (C) 1999, 2000, 2001, 2003, 2006, 2009 Free Software Foundation, Inc.
+;;;; Copyright (C) 1999, 2000, 2001, 2003, 2006, 2009
, 2012
Free Software Foundation, Inc.
;;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
;;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@@
-178,7
+178,9
@@
'())
(acons gf gf-sym '()))))
(define (comp exp vals)
'())
(acons gf gf-sym '()))))
(define (comp exp vals)
- (let ((p ((@ (system base compile) compile) exp #:env *dispatch-module*)))
+ (let ((p ((@ (system base compile) compile) exp
+ #:env *dispatch-module*
+ #:opts '(#:partial-eval? #f #:cse? #f))))
(apply p vals)))
;; kick it.
(apply p vals)))
;; kick it.