sicp_ex2.45.scm

#! /opt/local/bin/gosh -i
;; -*- mode: scheme; coding: utf-8 -*-
;;; SICP ex2.45
;;; define "split" procedure

(define right-split (split beside below))
(define up-split (split below beside))

(define (split first-modify second-modify)
  (lambda (painter)
    (first-modify painter (second-modify painter painter))))