Continued fraction/Arithmetic/Construct from rational number: Difference between revisions

Content added Content deleted

Inline

@@ Line 4,571: / Line 4,571: @@
       (if (zero? d)
           (call-with-current-continuation
-           (lambda (return)
+           (lambda (kont)
-             (call-with-values (lambda () (values return #f))
+             (call-with-values (lambda () (values #f kont))
                consumer)))
           (let-values (((q r) (floor/ n d)))
             (loop d r (call-with-current-continuation
-                       (lambda (return)
+                       (lambda (kont)
                          (call-with-values (lambda ()
-                                             (values return q))
+                                             (values q kont))
                            consumer)))))))))
-(define (display-cf producer term)
+(define (display-cf term producer)
   (display "[")
-  (let loop ((producer producer)
+  (let loop ((term term)
-             (term term)
+             (producer producer)
              (separator ""))
     (if term
@@ Line 4,590: / Line 4,590: @@
           (display separator)
           (display term)
-          (let-values (((producer term)
+          (let-values (((term producer)
                         (call-with-current-continuation producer)))
-            (loop producer term
+            (loop term producer
                   (if (string=? separator "") ";" ","))))
         (begin