scheme-interpreter-story/utilities.scm

#lang racket

(provide print o atomic?)

;;; utilities
;;

(define (print s) (display s) (newline))

(define (o f g)
  (lambda (x)
    (f (g x))))

(define (atomic? x)
  (or (number? x) (boolean? x) (string? x)))