#lang racket (provide make-worker ) (define (make-worker n) (lambda () (set! n (+ n 1)) n) )
#!/usr/bin/env racket -t- #lang racket (require scheme "worker.rkt" ) (provide main) (define (print* . args) (for-each display args) (newline) ) (define (main argv) (let ( (w (make-worker 0)) ) (print* "worker: " (w)) (print* "worker: " (w)) (print* "worker: " (w)) ) ) (main (current-command-line-arguments))
#!/bin/sh raco exe main.rkt
% ./main.rkt
% ./build.sh % ./main
Up to category-code