sunterlib/s48/srfi-10/test/pi.scm

;;; This file is part of the Scheme Untergrund Library.

;; This code, written by Taylor Campbell, is in the public domain.

;; If the #, is uncommented, the ' should be commented; and vice versa.

#,
(define-reader-constructor
  ;'
  pi (lambda () (atan 0 -1)))
Forgot to put the 'This file is part of Sunterlib' message at the top of the SRFI 10 test files -- not that those two files are that significant, of course 2004-01-16 10:42:03 -05:00			`;;; This file is part of the Scheme Untergrund Library.`

Added basic SRFI 10 implementation 2004-01-16 10:37:46 -05:00			`;; This code, written by Taylor Campbell, is in the public domain.`

			`;; If the #, is uncommented, the ' should be commented; and vice versa.`

			`#,`
			`(define-reader-constructor`
			`;'`
			`pi (lambda () (atan 0 -1)))`