fix paren bug

2021-11-05 13:42:08 +01:00 · 2021-11-05 13:42:08 +01:00 · 82c209a469
commit 82c209a469
parent 9738cdad85
1 changed files with 2 additions and 2 deletions
--- a/examples/X-extras/calculator.lisp
+++ b/examples/X-extras/calculator.lisp
@ -44,9 +44,9 @@
  (flet ((str (x)
           (format nil "~:D" x)))
    (x:when-it (funcall-protect (lambda (x) (float x *precision*)) n)
-      (|setText| *float* (princ-to-string x:it)
+      (|setText| *float* (princ-to-string x:it))
      #+darwin
-      (|repaint| *float*)))
+      (|repaint| *float*))
    (let* ((num (str (numerator n)))
           (den (str (denominator n)))
           (dif (- (length den) (length num))))