sans/utilities.scm

#lang racket

(provide ;;print
          o ;;atomic?
          ;assoc-replace
          )

;;; 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)))

;(define assoc-replace dict-set)