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

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

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

(define (circumference r) (* '#,(pi) 2 r))
(define (area r) (* '#,(pi) (expt r 2)))
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.`

			`(define (circumference r) (* '#,(pi) 2 r))`
			`(define (area r) (* '#,(pi) (expt r 2)))`