samdphillips

#lang racket/base

(require racket/file
         racket/format
         racket/pretty
         setup/dirs)

(define env-dir (build-path (current-directory) "_raco-env"))
(define env-config-dir (build-path env-dir "etc"))

tonyg

#lang racket/base
(require data/queue)
(provide fork yield done run-threads)

(define current-runqueue (make-parameter #f))

(define (fork thunk)
  (enqueue! (current-runqueue) (lambda () (thunk) (done))))

(define (yield)

samth

#lang racket
"Posted from Racket!"

rwaldron

// In Chrome Canary, with Experimental JavaScript enabled...

(function( exports ) {
  // Create a reusable symbol for storing
  // Emitter instance events

  var sym = new Symbol();

  function Emitter() {
    this[ sym ] = {

wycats

Goals

The goals of this project are to define a layered architecture for the client-side web platform[1] that W3C working groups can use to define new platform features and refine existing platform features.

Specifically, this architecture defines a clear relationship between markup and imperative code.

dherman

var IPAddress = new StructType({
  f0: uint8,
  f1: uint8,
  f2: uint8,
  f3: uint8
});

var Packet = new StructType({ addr: IPAddress, ... });

var PacketArray = new ArrayType(Packet);

dherman

var IPAddress = new ArrayType(uint8, 4);
var P_IPAddress = new PointerType(IPAddress);

var Packet = new StructType({ addr: IPAddress, ... });
var P_Packet = new PointerType(Packet);

var PacketArray = new ArrayType(Packet);
var lotsOfPackets = new PacketArray(LOTS);

for (let p of lotsOfPackets.cursor("addr")) {

gcr

#lang racket
(require sgl
         sgl/gl
         sgl/gl-vectors
         slideshow
         racket/gui)

; make a texture!
(define *size* 128)
(define b (instantiate bitmap% (*size* *size*)))