[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Debugging with PSD
From: |
Thomas Wawrzinek |
Subject: |
Debugging with PSD |
Date: |
Wed, 27 Jun 2001 14:50:38 +0200 (MEST) |
Hi!
I just played around a bit more with PSD, and instantly ran into trouble.
For forms like
(define (func a b)
(define tmp (+ a b))
((lambda (tjw)
(+ tjw 1))
tmp))
I get a
Wrong number of arguments to #<procedure (tjw)>
ABORT: (wrong-number-of-args)
error.
Applying the "patch" below does help in this case.
But since the `frame' parameter is no longer used, this is certainly not the
right thing. I've informed Pertti Kellom\"aki about it, but I think it means
using PSD with guile is likely calling for trouble :-(
Regards,
Thomas
-- primitives.scm Sat Nov 11 19:27:08 2000
+++ primitives.scm.new Wed Jun 27 14:36:59 2001
@@ -885,9 +885,10 @@
;; argument. Otherwise just apply the procedure.
(if (member (car combination)
*psd-instrumented-procedures*)
- (apply (car combination)
- (cons frame
- (cdr combination)))
+ ;(apply (car combination)
+ ; (cons frame
+ ; (cdr combination)))
+ (apply (car combination) (cdr combination))
(apply (car combination) (cdr combination)))
;; This is not a procedure at all!