hellerve/dotfiles
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Added cabal and vim dir

Browse Source
This commit is contained in:
hellerve
2015-04-05 17:47:08 +02:00
parent 1e73d5652c
commit ae5a30a4a4
2440 changed files with 40465 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

261
cabal/share/x86_64-osx-ghc-7.8.4/husk-scheme-3.19/lib/scheme/base.sld Normal file
View File

@@ -0,0 +1,261 @@
;; TODO: this is incomplete at the moment
;;;
;;; husk-scheme
;;; http://justinethier.github.com/husk-scheme
;;;
;;; Written by Justin Ethier
;;;
;;; r7rs-small base library
;;;
(define-library (scheme base)
; TODO: load scheme defs from another file?
; maybe good enough that that other file is part of (scheme)
(export
*
+
-
/
<
<=
=
>
>=
abs
and
append
apply
assoc
assq
assv
begin
boolean?
bytevector
bytevector-append
bytevector-copy
bytevector-copy!
bytevector-length
bytevector-u8-ref
bytevector?
caar
cadr
call-with-current-continuation
call-with-values
call/cc
car
case
cdar
cddr
cdr
ceiling
char->integer
char-ready?
char<=?
char<?
char=?
char>=?
char>?
char?
close-input-port
close-output-port
complex?
cond
cons
current-input-port
current-output-port
denominator
do
dynamic-wind
eof-object?
eq?
equal?
eqv?
error
even?
inexact->exact ; Added for convenience, not standard anymore
exact->inexact ; Added for convenience, not standard anymore
(rename inexact->exact exact)
(rename exact->inexact inexact)
expt
floor
for-each
gcd
; JAE TODO: should import be included???
;import
include
;include-ci
input-port?
integer->char
integer?
lcm
length
let
let*
letrec
list
list->string
list->vector
list-ref
list-tail
list?
make-bytevector
make-string
make-vector
map
max
member
memq
memv
min
modulo
negative?
newline
not
null?
number->string
number?
numerator
odd?
or
output-port?
pair?
peek-char
positive?
procedure?
quasiquote
quotient
rational?
rationalize
read-char
real?
remainder
reverse
round
string
string->list
string->number
string->symbol
string->utf8
string-append
string-copy
string-length
string-ref
string<=?
string<?
string=?
string>=?
string>?
string?
substring
symbol->string
symbol?
truncate
utf8->string
values
vector
vector->list
vector-length
vector-ref
vector?
write-char
zero?
;=>
binary-port?
boolean=?
;bytevector-u8-set!
call-with-port
close-port
cond-expand
;current-error-port
;define
define-record-type
record?
;define-syntax
;define-values
;else
eof-object
;error-object-irritants
;error-object-message
;error-object?
exact-integer-sqrt
exact-integer?
exact?
features
;file-error?
;floor-quotient
;floor-remainder
;floor/
flush-output-port
get-output-bytevector
get-output-string
;guard
;if
inexact?
input-port-open?
;lambda
let*-values
;let-syntax
let-values
letrec*
;letrec-syntax
list-copy
;list-set!
make-list
make-parameter
open-input-bytevector
open-input-string
open-output-bytevector
open-output-string
output-port-open?
parameterize
;peek-u8
;port?
;quote
;raise
;raise-continuable
read-bytevector
;read-bytevector!
;read-error?
read-line
read-string
;read-u8
;set!
;set-car!
;set-cdr!
square
string->vector
string-copy!
string-fill!
string-for-each
string-map
;string-set!
;symbol=?
syntax-error
;syntax-rules
textual-port?
;truncate-quotient
;truncate-remainder
;truncate/
;u8-ready?
unless
;unquote
;unquote-splicing
vector->string
vector-append
vector-copy
vector-copy!
vector-fill!
vector-for-each
vector-map
;vector-set!
when
;with-exception-handler
write-bytevector
write-string
;write-u8
%husk-switch-to-parent-environment
)
(include "../srfi/srfi-9.scm")
(import (scheme)))