It looks like sloppy code on my part.&nbsp; I assume it worked in some previous version, but I will change the exit call to take an argument.&nbsp; I assume something downstream wants a value now.&nbsp; I&#39;ll release a new version this evening.<br>
<br>Doug<br><br><div class="gmail_quote">On Mon, Jan 28, 2008 at 3:20 PM, Vincent Rayappa &lt;<a href="mailto:vrayappa@gmail.com">vrayappa@gmail.com</a>&gt; wrote:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
I would like to use the histogram module of the science collection to<br>
generate histograms with custom ranges.<br>
<br>
I tried:<br>
<br>
(define h1 (make-histogram 4))<br>
(set-histogram-ranges! h &#39;#(0.0 1.0 2.0 4.0 16.0))<br>
<br>
So far so good, but when I try to add a value like this:<br>
<br>
(histogram-increment! h 5)<br>
<br>
I get this error:<br>
<br>
context expected 1 value, received 0 values<br>
.../histogram.ss:219:10: (call/ec (lambda (exit) (if (&lt; x (....))<br>
(exit)) ((letrec-values ((....)) doloop) 0)))<br>
[unknown source]: (void?31 (val (histogram?29 histogram?27) (real?30 real?28)))<br>
<br>
Any idea what is going on?<br>
<br>
The function is defined like this:<br>
<br>
 &nbsp;;; Increment the bin corresponding to the x value by one.<br>
<br>
 &nbsp;(define (histogram-increment! h x)<br>
 &nbsp; &nbsp;(let ((n (histogram-n h))<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(ranges (histogram-ranges h))<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(bins (histogram-bins h))<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(uniform-ranges? (histogram-ranges-uniform? h)))<br>
 &nbsp; &nbsp; &nbsp;(if uniform-ranges?<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;;; Compute bin<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(let ((i (inexact-&gt;exact<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(floor (/ (- x (vector-ref ranges 0))<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(/ (- (vector-ref ranges n)<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(vector-ref ranges 0))<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; n))))))<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(if (&lt;= 0 i (- n 1))<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(vector-set! bins i<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (+ (vector-ref bins i) 1))))<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;;; Search for bin<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(let/ec exit ;; &lt;---------- line #219<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(if (&lt; x (vector-ref ranges 0))<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(exit))<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(do ((i 0 (+ i 1)))<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;((= i n) (void))<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(if (&lt; x (vector-ref ranges (+ i 1)))<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(begin<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(vector-set! bins i<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (+ (vector-ref bins i) 1))<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(exit))))))))<br>
<br>
<br>
Many Thanks,<br>
Vincent.<br>
_________________________________________________<br>
 &nbsp;For list-related administrative tasks:<br>
 &nbsp;<a href="http://list.cs.brown.edu/mailman/listinfo/plt-scheme" target="_blank">http://list.cs.brown.edu/mailman/listinfo/plt-scheme</a><br>
</blockquote></div><br>