← Back to branch summary

~ubuntu-branches/ubuntu/trusty/mit-scheme/trusty

« back to all changes in this revision

Viewing changes to src/runtime/http-syntax.scm

  • Committer: Bazaar Package Importer
  • Author(s): Chris Hanson
  • Date: 2010-03-10 02:00:45 UTC
  • mfrom: (1.1.7 upstream) (3.1.6 sid)
  • Revision ID: james.westby@ubuntu.com-20100310020045-4np1y3ro6sk2oz92
Tags: 9.0.1-1
* New upstream.
* debian/watch: Fix, previous version was broken.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/runtime/http-syntax.scm
1
1
#| -*-Scheme-*-
2
2
 
3
 
$Id: http-syntax.scm,v 1.10 2008/10/29 02:19:24 cph Exp $
4
 
 
5
3
Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
6
4
    1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
7
 
    2006, 2007, 2008 Massachusetts Institute of Technology
 
5
    2006, 2007, 2008, 2009, 2010 Massachusetts Institute of Technology
8
6
 
9
7
This file is part of MIT/GNU Scheme.
10
8
 
1002
1000
  (hash-table-ref/default header-value-defns name #f))
1003
1001
 
1004
1002
(define-deferred header-value-defns
1005
 
  (make-eq-hash-table))
 
1003
  (make-strong-eq-hash-table))
1006
1004
 
1007
1005
(define-structure hvdefn
1008
1006
  (name #f read-only #t)
1448
1446
 
1449
1447
;;;; Utilities
1450
1448
 
1451
 
(define initialize-package!
1452
 
  (let ((environment (the-environment)))
1453
 
    (lambda ()
1454
 
      (run-boot-inits! environment))))
1455
 
 
1456
1449
(define (parse-http-chunk-leader string)
1457
1450
  ((list-parser
1458
1451
    (encapsulate list