Skip to content

Instantly share code, notes, and snippets.

@altitude

altitude/gist:4681997

Last active December 12, 2015 00:09
Show Gist options
  • Save altitude/4681997 to your computer and use it in GitHub Desktop.
Save altitude/4681997 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
;; INIT : string * int * int * int -> proc
(define INIT (lambda (diskname disksize cachesize)
(begin
(fs-make-disk diskname disksize)
(fs-init-cache cachesize)
(fs-init-dcache)
(fs-format-disk diskname disksize)
)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment