Changeset 3914 in project


Ignore:
Timestamp:
04/23/07 20:00:48 (13 years ago)
Author:
Kon Lovett
Message:

Added declarations.

Location:
topological-sort
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • topological-sort/topological-sort.scm

    r3883 r3914  
    22;; Copyright (C) 1995 Mikael Djurfeldt
    33
     4(require-extension srfi-69)
     5
     6(eval-when (compile)
     7  (declare
     8    (usual-integrations)
     9    (no-procedure-checks)
     10    (no-bound-checks)
     11    (fixnum)
     12    (export
     13      topological-sort) ) )
     14
    415(define (topological-sort dag pred)
     16  #;(unless (list? dag)
     17    (error 'topological-sort "invalid directed-acyclic-graph representation") )
     18  #;(unless (procedure? pred)
     19    (error 'topological-sort "invalid procedure") )
    520  (if (null? dag)
    621      '()
  • topological-sort/topological-sort.setup

    r3902 r3914  
    44 'topological-sort
    55 '("topological-sort.so" "topological-sort.o")
    6  '((version 1.0)
     6 '((version 1.1)
    77   (export topological-sort)
    88   (documentation "toplogical-sort.html")
Note: See TracChangeset for help on using the changeset viewer.