Skip to content

Instantly share code, notes, and snippets.

View wilbowma's full-sized avatar

William J. Bowman wilbowma

View GitHub Profile
#lang racket
(require racket/trace)
(require (for-syntax racket/trace))
(begin-for-syntax    
(current-trace-print-args      
(let ([ctpa (current-trace-print-args)])
(lambda (s l kw l2 n)          
(ctpa s (map syntax->datum l) kw l2 n))))    
(current-trace-print-results      
#lang racket
(begin-for-syntax
(require racket/match)
;; Pretend your programs are lists inside here
(define (compute-program-as-list ls)
(match ls
[(list 'pretend-is-list a b c)
'(define (whatever meow) meow)])))
#lang scribble/manual
@(provide description-override keywords-override)
@(define description-override "William J. Bowman's home on the web.")
@(define keywords-override "William J. Bowman,William,type-theory,type theory,meta-theory,meta theory,compilers,verification,full abstraction,equivalence preservation,programming languages")
....
Starting interactive tactic session. Prepared to be sassed:
Type (quit) to quit.
--------------------------------
(forall (x : bool) bool)
I don't think you know what you're doing.
(obvious)
You expect me to know this?
#lang cur
(require cur/stdlib/sugar)
(provide
True T
thm:anything-implies-true
False
Not
And
conj
thm:and-is-symmetric proof:and-is-symmetric
#lang racket/base
(require
;; Requires Paul's patches
redex/reduction-semantics)
(provide (all-defined-out))
(module+ test
(require rackunit))
@wilbowma
wilbowma / before.rules
Last active March 22, 2022 05:19
Files accompanying A Transparent Ad-Blocking VPN via SoftEther + Privoxy
#
# rules.before
#
# Rules that should be run before the ufw command line added rules. Custom
# rules should be added to one of these chains:
# ufw-before-input
# ufw-before-output
# ufw-before-forward
#
#lang racket/base
(require
redex/reduction-semantics)
(define-language lc
[e m ::= natural x (λ (x) e) (e e)]
[x ::= variable-not-otherwise-mentioned]
#:binding-forms
(λ (x) e #:refers-to x))
#lang racket/base
(require
redex/reduction-semantics)
(define-language stlc
[t ::= nat (-> t t)]
[e m ::= natural x (λ (x : t) e) (e e)]
[x ::= variable-not-otherwise-mentioned]
[Γ ::= ∅ (Γ x : t)]
[PATCH] Fixed permissions on /var/spool/cron, per #30
/var/spool/cron should be owned by this package, and should be group
writeable.
It's possible this package should also create a crontab group, and make
/var/spool/cron belong to and by writeable by that group, but this is
the minimal required change.
https://github.com/systemd-cron/systemd-cron-next/issues/30
---