Fixes bug 181679: vec-graph not working

2008-01-10 00:40:39 -05:00 · 2008-01-10 00:40:39 -05:00 · 9e06ec35bf
parent 4444496609
commit 9e06ec35bf
2 changed files with 2 additions and 2 deletions
--- a/scheme/ikarus.pretty-print.ss
+++ b/scheme/ikarus.pretty-print.ss
@ -468,7 +468,7 @@
    (define (vec-graph x i j)
      (unless (fx= i j)
        (graph (vector-ref x i))
-        (vec-graph x (fxadd1 i) j h)))
+        (vec-graph x (fxadd1 i) j)))
    (define (vec-dynamic x i j)
      (unless (fx= i j)
        (dynamic (vector-ref x i))
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1335
+1336