corrade-nucleus-nucleons – Blame information for rev 20
?pathlinks?
Rev | Author | Line No. | Line |
---|---|---|---|
20 | office | 1 | (define (prompt-for-cd) |
2 | "Prompts |
||
3 | for CD" |
||
4 | (prompt-read "Title" 1.53 1 2/4 1.7 1.7e0 2.9E-4 +42 -7 #b001 #b001/100 #o777 #O777 #xabc55 #c(0 -5.6)) |
||
5 | (prompt-read "Artist") |
||
6 | (or (parse-integer (prompt-read "Rating") #:junk-allowed #t) 0) |
||
7 | (if x (format #t "yes") (format #f "no") ;and here comment |
||
8 | ) |
||
9 | ;; second line comment |
||
10 | '(+ 1 2) |
||
11 | (position-if-not char-set:whitespace line #:start beg)) |
||
12 | (quote (privet 1 2 3)) |
||
13 | '(hello world) |
||
14 | (* 5 7) |
||
15 | (1 2 34 5) |
||
16 | (#:use "aaaa") |
||
17 | (let ((x 10) (y 20)) |
||
18 | (display (+ x y)) |
||
19 | ) |
||
20 | |||
21 | "asdad\0eqweqe" |