PasteRack.org
Paste # 1952
2019-11-19 07:12:55

Fork as a new paste.

Paste viewed 580 times.


Embed:

#lang racket
(define (abs x) (if (<x0) (-x) (x)) 
  (let ((x (read)) (abs x)))

=>

prog:2:0: read-syntax: expected a `)` to close `(`
  context...:
   read-one/not-eof
   loop
   [repeats 4 more times]
   read-unwrapped-sequence17
   read-undotted
   read-syntax3
   /home/pasterack/racket73/collects/syntax/module-reader.rkt:186:17: body
   /home/pasterack/racket73/collects/syntax/module-reader.rkt:183:2: wrap-internal
   /home/pasterack/racket73/collects/racket/../syntax/module-reader.rkt:65:9: lang:read-syntax
   read-syntax3
   /home/pasterack/racket73/share/pkgs/scribble-lib/scribble/private/manual-code.rkt:112:0: get-tokens
   /home/pasterack/racket73/share/pkgs/scribble-lib/scribble/private/manual-code.rkt:56:0: typeset-code15
   "/home/pasterack/pasterack/tmp/1952/1952code.scrbl": [running body]
   temp37_0
   for-loop
   run-module-instance!125
   ...