remove-cells.scm 399 B

1234567891011121314
  1. ;;; Ported from Scheme 48 1.9. See file COPYING for notices and license.
  2. ;;;
  3. ;;; Port Author: Andrew Whatson
  4. ;;;
  5. ;;; Original Authors: Richard Kelsey, Mike Sperber
  6. ;;;
  7. ;;; scheme48-1.9.2/ps-compiler/package-defs.scm
  8. (define-module (ps-compiler simp remove-cells)
  9. #:export (remove-cells-from-tree))
  10. (define (remove-cells-from-tree . stuff)
  11. (error "REMOVE-CELLS-FROM-TREE is undefined"))