michaelballantyne

#lang racket/base

(require racket/list racket/set racket/string racket/match)

(define (local? sym)
  (define str (symbol->string sym))
  (define trimmed (string-trim str #rx"_[0-9]+" #:left? #f))
  (not (equal? str trimmed)))

(define (get-primitives l)

michaelballantyne

#lang racket/base

; Hastily adapted from debug-repl at https://github.com/AlexKnauth/debug/blob/master/debug/repl.rkt

; Note that this code relies on the output of `syntax-debug-info`, which the Racket documentation
; does not provide strong promises about. It may break with a future release of Racket.

; MIT License
;
; Copyright (c) 2015-2022 Alex Knauth, Suzanne Soy, Matthew Butterick, Sorawee Porncharoenwase,

michaelballantyne

#lang racket

(define (eval e env)
  (match e
    [(? symbol?) (hash-ref env e)]
    [`(let ([,(? symbol? x) ,e]) ,b)
     (eval b (hash-set env x (eval e env)))]
    [(? number?)
     e]
    [`(+ ,e1 ,e2)

michaelballantyne

#lang racket

(require (for-syntax racket/syntax "syntax-serializer.rkt"))

(provide Foo (for-syntax bar) check)

(define Foo #f)

(define-syntax (def stx)
  (syntax-case stx ()

michaelballantyne

;;; Copyright (c) 2000-2008 Dan Friedman, Erik Hilsdale, and Kent Dybvig
;;;
;;; Permission is hereby granted, free of charge, to any person
;;; obtaining a copy of this software and associated documentation files
;;; (the "Software"), to deal in the Software without restriction,
;;; including without limitation the rights to use, copy, modify, merge,
;;; publish, distribute, sublicense, and/or sell copies of the Software,
;;; and to permit persons to whom the Software is furnished to do so,
;;; subject to the following conditions:
;;; 

michaelballantyne

#lang racket

(match-define (list pout pin id perr f) (process "exit"))

(with-handlers ([exn:fail? (lambda (e) (printf "error in write: \n~a\n" e) (void))])
  (write-bytes #"foo" pin)
  (flush-output pin)
  (sleep 0.1)
  (write-bytes #"bar" pin)
  (flush-output pin))

michaelballantyne

#lang racket

(require
  (for-syntax
   ee-lib
   syntax/parse))

(begin-for-syntax
  (define lift-binds! (make-parameter #f))
  (define lift-syntaxes! (make-parameter #f))

michaelballantyne

#lang racket

(module A racket
  (provide m)
  (require (for-syntax syntax/parse syntax/location))

  (module empty racket
    (provide #%module-begin))
  
  (define-syntax (m stx)

michaelballantyne

#lang racket

; Interpreter for MetaScheme, the core staged language. 

(struct lit [v] #:transparent)
(struct lam [xs e] #:transparent)
(struct ref [x] #:transparent)
(struct app [e1 e2] #:transparent)
(struct lif [c t e] #:transparent)
(struct quot [e] #:transparent)

michaelballantyne

#lang racket

(struct lit [v] #:transparent)
(struct lam [xs e] #:transparent)
(struct ref [x] #:transparent)
(struct app [e1 e2] #:transparent)
(struct quot [e] #:transparent)
(struct unquot [e] #:transparent)
(struct lif [c t e] #:transparent)
(struct run [e])