Skip to content

Instantly share code, notes, and snippets.

@hayamiz
Created January 26, 2009 17:40
Show Gist options
  • Save hayamiz/52878 to your computer and use it in GitHub Desktop.
Save hayamiz/52878 to your computer and use it in GitHub Desktop.
(defvar r5rs-keywords
'("abs" "acos" "and" "angle"
"append" "apply" "asin" "assoc"
"assq" "assv" "atan" "begin"
"boolean?" "caar" "cadr" "call-with-current-continuation"
"call-with-input-file" "call-with-output-file" "call-with-values" "car"
"case" "cdddar" "cddddr" "cdr"
"ceiling" "char->integer" "char-alphabetic?" "char-ci<=?"
"char-ci<?" "char-ci=?" "char-ci>=?" "char-ci>?"
"char-downcase" "char-lower-case?" "char-numeric?" "char-ready?"
"char-upcase" "char-upper-case?" "char-whitespace?" "char<=?"
"char<?" "char=?" "char>=?" "char>?"
"char?" "close-input-port" "close-output-port" "complex?"
"cond" "cons" "cos" "current-input-port"
"current-output-port" "delay" "denominator" "display"
"dynamic-wind" "eof-object?" "eq?" "equal?"
"eqv?" "eval" "even?" "exact->inexact"
"exact?" "exp" "expt" "floor"
"for-each" "force" "gcd" "if"
"imag-part" "inexact->exact" "inexact?" "input-port?"
"integer->char" "integer?" "interaction-environment" "lambda"
"lcm" "length" "let" "let*"
"let-syntax" "letrec" "letrec-syntax" "list"
"list->string" "list->vector" "list-ref" "list-tail"
"list?" "load" "log" "magnitude"
"make-polar" "make-rectangular" "make-string" "make-vector"
"map" "max" "member" "memq"
"memv" "min" "modulo" "negative?"
"newline" "not" "null-environment" "null?"
"number->string" "number?" "numerator" "odd?"
"open-input-file" "open-output-file" "or" "output-port?"
"pair?" "peek-char" "positive?" "procedure?"
"quasiquote" "quote" "quotient" "rational?"
"rationalize" "read" "read-char" "real-part"
"real?" "remainder" "reverse" "round"
"scheme-report-environment" "set!" "set-car!" "set-cdr!"
"sin" "sqrt" "string" "string->list"
"string->number" "string->symbol" "string-append" "string-ci<=?"
"string-ci<?" "string-ci=?" "string-ci>=?" "string-ci>?"
"string-copy" "string-fill!" "string-length" "string-ref"
"string-set!" "string<=?" "string<?" "string=?"
"string>=?" "string>?" "string?" "substring"
"symbol->string" "symbol?" "syntax-rules" "tan"
"template" "transcript-off" "transcript-on" "truncate"
"values" "vector" "vector->list" "vector-fill!"
"vector-length" "vector-ref" "vector-set!" "vector?"
"with-input-from-file" "with-output-to-file" "write" "write-char"
"zero?"))
(defvar ac-source-r5rs
'((candidates . (lambda () (all-completions ac-target r5rs-keywords)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment