From 87b82b5822ca54228cfa6df29be3ad9d4bc47d16 Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:05:28 -0800 Subject: Import Upstream version 2d2 --- structst.scm | 37 ------------------------------------- 1 file changed, 37 deletions(-) delete mode 100644 structst.scm (limited to 'structst.scm') diff --git a/structst.scm b/structst.scm deleted file mode 100644 index ea298e0..0000000 --- a/structst.scm +++ /dev/null @@ -1,37 +0,0 @@ -;"structst.scm" test "struct.scm" -;Copyright (C) 1993 Aubrey Jaffer -; -;Permission to copy this software, to redistribute it, and to use it -;for any purpose is granted, subject to the following restrictions and -;understandings. -; -;1. Any copy made of this software must include this copyright notice -;in full. -; -;2. I have made no warrantee or representation that the operation of -;this software will be error-free, and I am under no obligation to -;provide any services, by way of maintenance, update, or otherwise. -; -;3. In conjunction with products arising from the use of this -;material, there shall be no use of my name in any advertising, -;promotional, or sales literature without prior written consent in -;each case. - -(require 'struct) - -(define-record foo (a b c)) -(define-record goo (xx yy)) - -(define a-foo (make-foo 1 2 3)) -(define a-goo (make-goo 4 5)) - -(define (struct:test) - (define (t1 x) - (variant-case x - (foo (a b c) (list a b c)) - (goo (xx yy) (list xx yy)) - (else (list 7 8)))) - (write (append (t1 a-foo) (t1 a-goo) (t1 9))) - (newline)) - -(struct:test) -- cgit v1.2.3