Commit 9428364c authored by Dan Holtby's avatar Dan Holtby
Browse files

fix line lengths

parent 051be7f8
......@@ -38,7 +38,8 @@
(define-values (mbr checked?)
(message+check-box/custom
(string-constant drscheme)
"The string you inserted contains fractions or other non-text elements. Convert them to text?"
"The string you inserted contains fractions or other non-text elements.\
Convert them to text?"
(string-constant dont-ask-again)
"Convert to text"
(string-constant leave-alone)
......@@ -135,11 +136,11 @@
[(is-a? snip string-snip%)
(display (send snip get-text 0 (send snip get-count)) new-text)
(loop (send snip next) new-text changed?)]
[else ; to any CS135 students reading this: else cond isn't terrible in full Racket because of side effects ;)
[else ; to any CS135 students reading this: else cond isn't always terrible
(cond [(number-snip:is-number-snip? snip)
(write (number-snip:get-number snip) new-text)]
[else (fprintf new-text "#|Failed to insert ~v|#" snip)])
(loop (send snip next)
(loop (send snip next) ;; this also happens in the else ;)
new-text
#t)]))))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment