File tree 2 files changed +4
-5
lines changed
2 files changed +4
-5
lines changed Original file line number Diff line number Diff line change @@ -11,8 +11,8 @@ Extended documentation for mathematical symbols & functions is :ref:`here <mathe
11
11
``! `` prefix "not" operator
12
12
``a!( ) `` at the end of a function name, `! ` indicates that a function modifies its argument(s)
13
13
``# `` begin single line comment
14
- ``#= `` begin multiple line comment
15
- ``=# `` end multiple line comment
14
+ ``#= `` begin multi- line comment
15
+ ``=# `` end multi- line comment
16
16
``$ `` xor operator, string and expression interpolation
17
17
``% `` remainder operator
18
18
``^ `` exponent operator
Original file line number Diff line number Diff line change 360
360
(define (skip-multiline-comment port )
361
361
(let ((c (read-char port)))
362
362
(if (eof-object? c)
363
- (error " non-terminated multiline comment #= ... =#" )
363
+ (error " unterminated multi-line comment #= ... =#" )
364
364
(begin (if (eqv? c #\= )
365
365
(let ((c (peek-char port)))
366
366
(if (eqv? c #\# )
370
370
371
371
(read-char port) ; read # that was already peeked
372
372
(if (eqv? (peek-char port) #\= )
373
- (begin (read-char port) ; read initial =
374
- (skip-multiline-comment port))
373
+ (skip-multiline-comment port)
375
374
(skip-to-eol port)))
376
375
377
376
(define (skip-ws-and-comments port )
You can’t perform that action at this time.
0 commit comments