Changeset main,82

Timestamp:

01/18/2008 06:47:45 PM (18 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20080118184745-gqypilkqziatxth7

Message:

Fix: misused UNWIND-PROTECT in WITH-SCREEN. As a side-effect, now returns the
correct value.

File:

• main/window/screen.lisp (modified) (1 diff)

main/window/screen.lisp

@@ -33 +33 @@
          (error 'screen-initialization-error))
        (unwind-protect
-            (start-color)
-            (dotimes (i 63)
-              (let ((j (1+ i)))
-                (init-pair j (mod j 8) (floor j 8))))
-            (let ((,screen (make-instance 'screen-window :ptr ,ptr)))
-              ,@body)
+            (progn
+              (start-color)
+              (dotimes (i 63)
+                (let ((j (1+ i)))
+                  (init-pair j (mod j 8) (floor j 8))))
+              (let ((,screen (make-instance 'screen-window :ptr ,ptr)))
+                ,@body))
          (endwin)))))