PasteRack.org
Paste # 3079
2026-02-16 14:46:44

Fork as a new paste.

Paste viewed 245 times.


Embed:

blessing

#lang racket
#lang racket
(require 2htdp/image)
(require lang/posn)
(define (blessing)
  (overlay
   (flip-horizontal
    (rotate
     45
     (polygon (list (make-posn 0 0)
                    (make-posn 36 0)
                    (make-posn 36 24)
                    (make-posn 48 24)
                    (make-posn 48 0)
                    (make-posn 60 0);
                    (make-posn 60 36)
                    (make-posn 36 36)
                    (make-posn 36 48)
                    (make-posn 60 48)
                    (make-posn 60 60);
                    (make-posn 24 60)
                    (make-posn 24 36)
                    (make-posn 12 36)
                    (make-posn 12 60)
                    (make-posn 0 60);
                    (make-posn 0 24)
                    (make-posn 24 24)
                    (make-posn 24 12)
                    (make-posn 0 12))
              "solid"
              "black")))
   (circle 45 "solid" "white")
   (rectangle 200 120 "solid" "red")))
(blessing)

=>

#<syntax:/home/pasterack/pasterack/tmp/3079/3079code.scrbl:5:0 "#lang racket">:2:0: read-syntax: `#lang` not enabled
  possible reason: not allowed again inside a module that already starts `#lang`, or not enabled for interactive evaluation
  context...:
   /home/pasterack/racket88/collects/syntax/module-reader.rkt:214:17: body
   /home/pasterack/racket88/collects/syntax/module-reader.rkt:211:2: wrap-internal
   /home/pasterack/racket88/collects/racket/../syntax/module-reader.rkt:76:9: wrap-internal/wrapper
   /home/pasterack/racket88/share/pkgs/scribble-lib/scribble/private/manual-code.rkt:138:19: loop
   /home/pasterack/racket88/share/pkgs/scribble-lib/scribble/private/manual-code.rkt:112:0: get-tokens
   /home/pasterack/racket88/share/pkgs/scribble-lib/scribble/private/manual-code.rkt:56:0: typeset-code
   body of "/home/pasterack/pasterack/tmp/3079/3079code.scrbl"
   .../private/map.rkt:40:19: loop
   .../racket/cmdline.rkt:191:51
   body of "/home/pasterack/racket88/share/pkgs/scribble-lib/scribble/run.rkt"