*** guile.texi/api-data.texi	2014-03-17 16:33:37.000000000 -0400
--- modded-guile.texi/api-data.texi	2016-03-02 21:07:44.900164075 -0500
***************
*** 1708,1714 ****
  
  @deffn {Scheme Procedure} ash n count
  @deffnx {C Function} scm_ash (n, count)
! Return @math{floor(n * 2^count)}.
  @var{n} and @var{count} must be exact integers.
  
  With @var{n} viewed as an infinite-precision twos-complement
--- 1708,1714 ----
  
  @deffn {Scheme Procedure} ash n count
  @deffnx {C Function} scm_ash (n, count)
! Return @math{floor(n * 2^{count})}.
  @var{n} and @var{count} must be exact integers.
  
  With @var{n} viewed as an infinite-precision twos-complement
***************
*** 5096,5102 ****
  @lisp
  ;; 1=red, 2=green, 3=purple
  
! (if (eq? (colour-of car) 1)
      ...)
  @end lisp
  
--- 5096,5102 ----
  @lisp
  ;; 1=red, 2=green, 3=purple
  
! (if (eq? (colour-of vehicle) 1)
      ...)
  @end lisp
  
***************
*** 5109,5115 ****
  (define green 2)
  (define purple 3)
  
! (if (eq? (colour-of car) red)
      ...)
  @end lisp
  
--- 5109,5115 ----
  (define green 2)
  (define purple 3)
  
! (if (eq? (colour-of vehicle) red)
      ...)
  @end lisp
  
***************
*** 5118,5124 ****
  symbols whose names specify the colours that they refer to:
  
  @lisp
! (if (eq? (colour-of car) 'red)
      ...)
  @end lisp
  
--- 5118,5124 ----
  symbols whose names specify the colours that they refer to:
  
  @lisp
! (if (eq? (colour-of vehicle) 'red)
      ...)
  @end lisp
  
***************
*** 5140,5154 ****
  manipulated as a list of symbols:
  
  @lisp
! (properties-of car1)
  @result{}
  (red manual unleaded power-steering)
  
! (if (memq 'power-steering (properties-of car1))
!     (display "Unfit people can drive this car.\n")
!     (display "You'll need strong arms to drive this car!\n"))
  @print{}
! Unfit people can drive this car.
  @end lisp
  
  Remember, the fundamental property of symbols that we are relying on
--- 5140,5154 ----
  manipulated as a list of symbols:
  
  @lisp
! (properties-of vehicle1)
  @result{}
  (red manual unleaded power-steering)
  
! (if (memq 'power-steering (properties-of vehicle1))
!     (display "Unfit people can drive this vehicle.\n")
!     (display "You'll need strong arms to drive this vehicle!\n"))
  @print{}
! Unfit people can drive this vehicle.
  @end lisp
  
  Remember, the fundamental property of symbols that we are relying on