takikawa

(;; random ID
 0 187
 ;; QR Opcode  AA TC RD RA Z     RCODE
 ;; 1  0 0 0 0 0  0  1  1  0 0 0 0 0 0 0
 129 128
 ;; QDCOUNT
 0 1
 ;; ANSCOUNT
 0 1
 ;; NSCOUNT

takikawa

#lang racket

(require (for-syntax syntax/parse
                     syntax/parse/experimental/template
                     racket/syntax 
                     racket/list))

;; A syntax class to recognize function arguments:
(begin-for-syntax
 (define-splicing-syntax-class argspec

takikawa

#lang racket

(define (f/raw x)
  #t)

(define (f/checked x)
  (unless (exact-nonnegative-integer? x)
    (error 'f/checked "blah blah"))
  #t)

takikawa

Emails from Matthew or others on relevant mailing lists

http://lists.racket-lang.org/users/archive/2005-August/009483.html

http://lists.racket-lang.org/users/archive/2005-November/010350.html

http://lists.racket-lang.org/users/archive/2006-June/013819.html

http://lists.racket-lang.org/users/archive/2006-August/014439.html

takikawa

(define a -1)
(define b 1)

;; original
(define x ((λ () 
             (let ([l '()])
               (define (loop i)
                 (if (< i b) 
                     (begin (append (loop (+ i 1/100)) (list i)))
                     (append l (list i))))