tweak lab4 syntax

2025-02-05 10:54:58 -04:00 · 2025-02-05 10:54:58 -04:00 · add499872f
commit add499872f
parent fe11450530
1 changed files with 3 additions and 3 deletions
--- a/Labs/04.rkt
+++ b/Labs/04.rkt
@ -50,8 +50,8 @@
 ; cycle
 (define (cycle lst)
  (type-case MList lst
-    [(MPair n t) (begin (set-last! lst lst) lst)]
-    [(Empty) (Empty)]))
+    [(Empty) (Empty)]
+    [else (begin (set-last! lst lst) lst)]))

 (define small-cycle (cycle (mlist '(0 1 2))))
 (define big-cycle (cycle big-mlist))