Skip to content

Instantly share code, notes, and snippets.

@samth
Created July 1, 2019 16:01
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save samth/62ab8662b2fb7c84b39ce19194d9975b to your computer and use it in GitHub Desktop.
Save samth/62ab8662b2fb7c84b39ce19194d9975b to your computer and use it in GitHub Desktop.
#lang racket/base
(require get-primitive)
(define ev (get-primitive 'eval))
(define rd (get-primitive 'read))
(ev '(import (chezscheme)))
(define ois (ev 'open-input-string))
(ev (rd (ois "(#%$assembly-output #t)")))
(ev '1)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment